( *********************************************************************
  File:        FRSVC3.F
  Author:      Dencom Inc.     -     www.dencom-inc.com
  Date:        March 16, 1998
  Description: This file contains the state machine for simulating
               a connection.
  ********************************************************************* )


0 STATE_INIT{
   CLEAR_KEYS
   " MENU"         1 LABEL_KEY
   " SEND SETUP"   2 LABEL_KEY
   " SEND DISC"    3 LABEL_KEY
   " SEND BUF"     4 LABEL_KEY
   " TestKeys"     SET_CURR_TOPIC
}STATE_INIT

0 STATE{

   UF1 ?KEY
   ACTION{
       TEST_SETUP_MENU
   }ACTION

   M#SETUP ?L3_MSG
   ACTION{
       IUT-USER-SIDE @ 0=
       IF
           I#BEARER_CAP ?L3_IECOUNT
           IF
               I#DLCI 1 ?L3_IE
               IF
                   *DEC ->DLCI_DLCI @ DLCI-VALUE !
                   I#LINK_CORE 1 ?L3_IE
                   IF
                       1 LINK-CORE-PRESENT !
                   ELSE
                       0 LINK-CORE-PRESENT !
                   ENDIF
                   SEND_CALL_PROC
                   SEND_CONN
                   0 FRAME-COUNT !
                   1 TIME-BETWEEN-FRAMES @ START_TIMER
               ENDIF
           ENDIF
       ELSE
           I#BEARER_CAP ?L3_IECOUNT
           IF
               I#DLCI 1 ?L3_IE
               IF
                   *DEC ->DLCI_DLCI @ DLCI-VALUE !
               ELSE
                   100 DLCI-VALUE !
               ENDIF
               I#LINK_CORE 1 ?L3_IE
               IF
                   1 LINK-CORE-PRESENT !
               ELSE
                   0 LINK-CORE-PRESENT !
               ENDIF
               SEND_CALL_PROC
               SEND_CONN
               0 FRAME-COUNT !
               1 TIME-BETWEEN-FRAMES @ START_TIMER
           ENDIF
       ENDIF
   }ACTION

   UF2 ?KEY
   ACTION{
       SEND_SETUP
   }ACTION

   UF4 ?KEY
   ACTION{
       SEND_BUFFER
   }ACTION

   M#CALL_PROC  ?L3_MSG
   ACTION{
       I#DLCI 1 ?L3_IE
       IF
           *DEC ->DLCI_DLCI @ DLCI-VALUE !
       ENDIF
   }ACTION

   M#CONN  ?L3_MSG
   ACTION{
       I#DLCI 1 ?L3_IE
       IF
           *DEC ->DLCI_DLCI @ DLCI-VALUE !
       ENDIF
       0 FRAME-COUNT !
       1 TIME-BETWEEN-FRAMES @ START_TIMER
   }ACTION

   1 ?TIMER
   ACTION{
       FRAME-COUNT @ FRAME-COUNT-MAX @ <
       IF
           SEND_FRAME
           1 TIME-BETWEEN-FRAMES @ START_TIMER
       ENDIF
       1 FRAME-COUNT +!
   }ACTION

   M#DISC ?L3_MSG
   ACTION{
       1 STOP_TIMER
       SEND_REL
   }ACTION

   UF3 ?KEY
   ACTION{
       1 STOP_TIMER
       SEND_DISC
   }ACTION

   M#REL ?L3_MSG
   ACTION{
       1 STOP_TIMER            ( in case the timer did not go off in DISC )
       SEND_REL_COM
   }ACTION

   M#REL_COM ?L3_MSG
   ACTION{
       1 STOP_TIMER            ( in case the timer did not go off in DISC )
   }ACTION

}STATE

TM_RUN